home *** CD-ROM | disk | FTP | other *** search
/ PD Collection CD 1 / PD Collection CD 1.iso / comms / riscbbs / !RiscBBS / BBS / Guess < prev    next >
Text File  |  1992-02-22  |  1KB  |  52 lines
  1. {more 0 attr 0 7 cls}
  2. {attr 4 3 cll}                     >>> The Fabulous Arcland Guessing Game <<<{attr 0 7}
  3. {eval V0 `RND MOD 2000` eval V1 0}
  4.  
  5. I think of a number between {fg 6}0{fg 7} and {fg 6}1999{fg 7} and you must try to guess it 
  6. within {fg 2}10{fg 7} tries... If you succeed, you user-level will go up {fg 6}5{fg 7} units...
  7. if you fail, it'll go down {fg 6}5{fg 7} units !!!
  8.  
  9. Do you want to continue? (Y/n) {yesno 1 V2 if V2=0 eoln eof endif}
  10.  
  11. Succes !!!
  12.  
  13. {
  14.  eval V1 0
  15.  eval V2 0
  16.  do `V2<>V0 AND V1<11`
  17.    fg 3 send `Try `
  18.    fg 1 print V1
  19.    fg 3 send `, make a guess: `
  20.    attr 4 7 field 4 read V2 4 attr 0 6 eoln
  21.    alt select
  22.      case "V2"=""
  23.        send `Invalid try, you must enter a number!` eoln
  24.        skip
  25.      case V2<V0
  26.        send `No, it's greater!` eoln
  27.        skip
  28.      case V2>V0
  29.        send `No, it's smaller!` eoln
  30.        skip
  31.      case V2=V0
  32.        if SYSOP=0
  33.          level +5
  34.        endif
  35.        send `Bravo !!! You've guessed it! Your user-level is now `
  36.        eval V3 LEVEL
  37.        print V3 eoln
  38.        eval V1 11
  39.        skip
  40.    endalt
  41.    eval V1 V1+1
  42.  enddo
  43.  if V2<>V0
  44.    if SYSOP=0
  45.      level -5
  46.    endif
  47.    send `What a pity, you failed! Your user-level is now `
  48.    eval V3 LEVEL
  49.    print V3 eoln
  50.  endif
  51. }
  52.